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Guida per l'input dei programmi versioni 
VIC SO e C64 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe j }. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario'’' questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


{CLR} 
{HOME} 
{SU} " 
{GtU ' } 
{SIN} 
{DES} 

{ RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


CLR/H0ME 

1 

c 


CIR/H0ME 


s 


fnsrani 

filmili 


E 


«=CRSR=J 


II 


C=CRSR=» 




Ji 


reni q 
GEI □ 


Q 
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{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
1 < 1 >] 
[< 2 >] 
[ < 3 > ] 
[< 4 >] 
[<5>] 
K6>] 


m 

m 

□ 


a 
□ 
QO 
HO 

□ B 

□ a 

□ D 

□ Q 


□ 


E 

■I 


[<7>] 

[< 8 >] 

{FI} 

{F2} 

{F 3 } 

{F4 } 

{F 5 } 

{F 6 } 

{F 7 } 

{F 8 } 


□ □ 
□ o 

m 

Gfcj 

CU 

CB 

GB 

VMÀ 

OD 


□ 







compilare il seguente tagliando: 


Per ricevere gli arretrati di 

K 

J ». Compilare ed inviare in busta chiusa a: 

♦ SO# l viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 
Indirizzo. 
CAP_ 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 
aV/fi dedicato a_ 


Anno 

Anno_ 


a L. 2.000 cad per un totale di L. a mezzo 


□ assegno allegato 


□ contanti allegati 


K 
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Stop Bus 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro- ' 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro, detto checksum; non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
06 e Plus/4). Per riattivarlo batti: 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il 06 e il PLUS/4 ; 
SYS 40704 per il C 64. 
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STOP BUG per C64 e VIC 20 


1 0 0 POKE55,0 :POKE56,PEEK(56)-1 :R = PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+132 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A :NEXT 

130 IFCK< >22689THENPRINT"{GIU' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R) :PRINT"{CLR}{ 2 GlU ' }{RVS}STOP BUG{OFF} ATTIVAT 
O.":NEW 

200 DATAI 73,36,3,201,32,208,1,96,141 
21 0 DATA33,999,173,37,3,1 41 ,34,999,1 69 

2 20 DATA32,1 41 ,36,3,169,999,141 ,37,3 

2 30 DATAI 6 9,0,1 33,254,96,32,87,241 ,133 
2 40 DATA2 51 ,134,252,132,253,8,201 ,13,240 
2 50 DATAI 7,201,32,240,5,24,101,254,133 
260 DATA254,1 6 5,2 51 ,166,252,164,253,40,96 
270 DATAI 69,13,32,210,255,165,214,141,251 
280 DATA3,206,251,3,169,0,133,216,169 

2 90 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,254,172,33,999,192,87,208,6 
320 DATA32,205,1 89,76,1 1 7,999,32,205,221 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,1 33,21 4,76,55,999 


STOP BUG per CI 6 e PLUS/4 

100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

1 1 0 FORI = 1 61 28T01 6260 :READA:CK=CK+A:POKEI,A:NEXT 

120 IFCK< >1 4 24 8THENPRINT"{GIU 1 }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS!6128:PRINT"{CLR}{ 2 GIU '}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

2 00 DATAI 73,34,3,201 , 32,208,1 ,96,141 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,1 41 ,34,3,169,63,141 ,35,3 

2 30 DATAI 6 9,0,1 33,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
2 50 DATAI 7,201 ,32,240,5,24,1 01 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,21 0,2 5 5,1 65,2 05,1 41 , 2 51 
2 80 DATA3,206,251 ,3,169,0,1 33,207,169 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 

3 00 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 3 3,6,1 72,3 3,63,1 92,232,208,6 
320 DATA32,95,1 64,76,1 1 7,63,32,7,208 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,205,76,55,63 
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La Corona di Pietra 

Prima parte 



Siamo finalmente in grado di pro¬ 
porre ai nostri lettori un appassio¬ 
nante adventure game per il VIC 
20. La mole del programma, pre¬ 
suppone l'uso di una espansione 
da 16K, ed infatti il listato è talmen¬ 
te lungo che siamo stati costretti a 
dividerlo in due parti: la prima ap¬ 
pare su questo numero, mentre la 
seconda verrà pubblicata la setti¬ 
mana prossima. 

In questa avventura voi imperso¬ 
nate un Principe, al quale l'infido 
consigliere ha sottratto la Corona 
di Pietra, simbolo del potere, per 
poi diventare un feroce tiranno. 
Per impedirvi di riassumere il co¬ 
mando egli ha nascosto la Corona 
in un luogo sconosciuto e pieno di 
pericoli; ma voi coraggiosamente 
sfidate il pericolo e iniziate la ricer¬ 
ca, per poter risalire sul trono e li¬ 
berare il vostro popolo dall'op¬ 
pressione del tiranno. 

Per chi non avesse troppa dimesti¬ 
chezza con i giochi d'avventura, 
spieghiamo che per risolverli oc¬ 
corre principalmente molta pa¬ 
zienza: qui non contano i riflessi, 
ma bensì la riflessione e l'attenzio¬ 
ne anche al più piccolo dei parti-, 
co la ri. Dovete immaginare di esse¬ 
re il cervello, mentre il computer è 
il vostro corpo; esso vi descrive 
dove vi trovate, cosa c'è intorno a 
voi e la vostra situazione, e voi, il 
cervello, dovete dirgli cosa fare. Il 
compuer, allora, cercherà di obbe¬ 
dirvi nei limiti del possibile. 


Un 'azione può essere eseguibile in 
alcuni casi ed in altri no, può richie¬ 
dere di avere con sé uno o più og¬ 
getti, e così via. Ricordate comun¬ 
que che la soluzione esiste, anche 
se a volte non è di immediata com¬ 
prensione. 

Il vocabolario di cui dispone il 
computer comprende una sessan¬ 
tina tra nomi e verbi, ed i luoghi a 
cui è possibile accedere sono ben 
32. I messaggi possono essere co¬ 
stituiti da parole singole (comandi) 
o da frasi del tipo "verbo + artico¬ 
lo/preposizione + oggetto". I co¬ 
mandi sono: 

nord (abbreviabile con N), sud (S), 
est (E), ovest (O), scendi, inventa¬ 
rio (I), aiuto!, mi arrendo, guarda/ 
osserva (*). 

I verbi nelle frasi possono essere: 
abbassa, abbatti, accendi, afferra, 
alimenta, apri, butta, esamina, get¬ 
ta, gira, guarda, nutrì, osserva, pi¬ 
glia, posa, prendi, rompi, ruota, sa¬ 
li, scendi, spacca, spegni, spezza, 
sposta, taglia, uccidi, vai. 

I termini presenti in entrambi gli 
elenchi sono parole che possono 
assumere significati diversi a se¬ 
conda del contesto, purché siano 
impiegate come impone la gram¬ 
matica italiana. 

Per ora il vostro compito è solo 
quello di digitare e salvare su na¬ 
stro o disco la prima parte del pro¬ 
gramma,- la settimana prossima po¬ 
trete completare l'opera e dare il 
fatidico RUN. 
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REM ************** 

: rem 

1 45 

20 

REM * LA CORONA * 

:rem 

233 

30 

REM * DI PIETRA * 

: rem 

237 

40 

REM * (C) 1984 * 

:rem 

6 

50 

REM *ENRICO CEPPI* 

: rem 

206 

60 

REM ************** 

: rem 

1 50 

70 

DIMNO$(27),SE%(27),AR$(27):GOSUB3120 

: rem 

1 24 

80 

SE% = 1 

: rem 

1 47 

90 

P0$="":Pl$="":P2$="":P3$="":N%=-1 :S% = -1 

:E%=-1:0%=- 

1 :GI 


1 66 
226 
1 52 
1 39 
59 


% = -1 :rem 88 

1 00 0NSE%+1GOSUB21 00,21 30,21 70,2200,2 240,22 90,2330,2360,2 
380,2400,2420,2450 :rem 16 

110 ON-(SE%-11)*(SE%>11)GOSUB2480,2500,2530,2560,2590,261 
0,2630,2660,2690,2720 :rem 215 

120 ON- (SE%-21 ) * (SE%>21 ) GOSUB2770,2790,2830,2850,2880,292 
0,2940,2980,3020 :rem 248 

130 IFSE%=3AND(SE%(27)=30RSE%(27)=4)THENE%=4 :rem 238 

140 IFSE%=4AND(SE%(27)=30RSE%(27)=4)THENO%=3 :rem 249 

150 IF(SE%=140RSE%=150RSE%=170RSE%=180RSE%=19ORSE%=20)AND 
(T0 %< 1 ORSE% (5)0-1) THEN32 90 :rem 210 

160 PRINT"{CLR}";P0$;Pl$;P2$;P3$ :rem 125 

170 IF(SE%=30RSE%=4)AND(SE%(27)=30RSE%(27)=4)THENPRINT"PO 
SSO PASSARE SUL{ 5 SPAZI}TRONCO ! ! :rem 148 

180 PRINT"{RVS}POSSO ANDARE A:{OFF} :rem 

190 IFN%<>-1THENPRINT"NORD :rem 

200 IFS%<>-1THENPRINT"SUD :rem 

210 IFE%<>-1THENPRINT"EST "; :rem 

220 IF0%<>-1THENPRINT"OVEST "; :rem 

230 IF(SE%=25ANDSE%(16)=-l)OR(SE%(3)=SE%ANDO%<>-1)THENPRI 
NT"SU "; : rem 232 

240 IFGI%<>-1THENPRINT"GIU'"; :rem 249 

250 PRINT:CO% = 0: FORI = 0TO27: :rem 159 

260 IFSE%(I)<>SE%THEN310 :rem 120 

270 IFCO% = OTHENCO% = 1:PRINT"{RVS}VEDO: : rem 3 

280 IFSE%(1)=SE%ANDSE%(2)=SE%ANDI=1THENI=2:PRINT"DUE REMI 
":GOT0310 : rem 253 

290 IFI=7ANDSE%=17THENPRINT"UNO SCHELETRO":GOT0310 

: rem 

300 PRINTAR$(I)" "NO$(I) : rem 

310 NEXT:IFOD$(0)="GUARDA"OROD$(0)="OSSERVA"THEN41 0 

: rem 

320 IFT0%=2THENPRINT"LE POLVERI DELL'ARME= RIA SI SONO AC 
CESE!..." :PRINT"BUUMMMM! ! !":GOTO3050 :rem 103 

330 IFSE%=3OANDT0%=lTHENT0%=2 :rem 

340 IFCR=1ANDSE%(15)<>24THENPRINT"LA STREGA MI HA TRA 
FORMATO IN UN TOPO !{GIU'}":GOTO3050 :rem 

350 IFRND(TI)<.9THEN370 :rem 

360 IFSE% = 15ANDCA% = 1THENPRINT"IL CANE MI ATTACCA! !.. SONO 
MORTO":GOT03050 :rem 78 

370 IFSE% = 1 5ANDCA%02THENCA% = 1 :PRINT"IL CANE MI GUARDA MI 
= NACCIOSO! ! : rem 58 


190 
1 6 

74 


1 79 
= S 
58 
101 
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380 IFSE%=21ANDLEN(NO$(14))<7THENPRINT"I TOPI NON MI FANN 
0 ANDARE A NORD. : rem 23 

390 IFSE%=21ANDSE%(0)=21THENN%=22:NO$(14)="TOPI MORTI 

:rem 83 

400 IF(SE%<>14ANDSE%<>15ANDSE%<>17ANDSE%<>!8ANDSE%<>!9AND 
SE%<>20)ANDT0%<0THENT0% = 0 : rem 114 

410 OD$ = "": INPUT"{GIU'}COSA DEVO FARE";OD$:IFOD$ = ""THENPR 
INT"SII PIU'ESPLICITO ! !": GOTO410 :rem 65 

420 IFSE% = 24ANDSE% (22) 0-1 0ANDSE% (15) <>24ANDCR< 1 THENCR= 1 : 

PRINT"COMPARE UNA STREGA!! :rem 220 

430 IFCR=1ANDSE%(15)=24THENCR=2:PRINT"FUNZIONA! ! ! LASTRE 
GA SCAPPA!!":FORT=0TO750:NEXTT :rem 89 

440 FORI = OTOl0:OD$(I)="":NEXT:PU% = 0:CO% = 0: FORI = 1TOLEN(OD$ 

) : rem 239 

450 MI$=MID$(OD$,I,1):IFMI$<>" "ANDMI$<>"'"THENOD$(PU%)=0 
D$(PU%)+MI$ :CO% = 0 ; rem 110 

460 IF(MI$ = "'"ORMI$ = " ")ANDCO% = OTHENCO% = 1 :PU% = PU% + 1 


:rem 106 

470 NEXT : rem 218 

480 IFOD$(0)="VAI"ANDOD$(1)="SOPRA"THENOD$(2)=OD$(3):GOTO 
7^0 :rem 202 

490 IFOD$(0)="VAI"ANDLEFT$(OD$(1) , 2 ) ="SU"THEN790 : rem 199 

500 IFOD$(0)="VAI"THENOD$(0)=OD$(2) :rem 155 

510 IFOD$(0)=LEFT$("NORD",LEN(OD$(0) ) )ANDN%< >-1ANDSE% = 5AN 
DO% = -1THENSE% = N%: GOTO860 ;rem 244 

520 IFOD$(0)=LEFT$("NORD" , LEN(OD$(0)))ANDN%< >-1THENSE%=N% 
: GOTO90 :rem 220 

530 IFOD$(0)=LEFT$("SUD",LEN(OD$(0)) )ANDS%< >-1ANDSE%=13AN 
DO%=-1THENSE%=S%: GOTO830 :rem 229 

540 IFOD$(0)=LEFT$("SUD",LEN(OD$(0)))ANDS%<>-1THENSE%=S%: 
GOTO90 : rem 161 


550 IFOD$(0)=LEFT$("EST",LEN(OD$(0) ) )ANDE%< >-1THENSE% = E%: 

GOTO90 :rem 134 

560 IFOD$(0)=LEFT$("OVEST",LEN(OD$(0)))ANDO%<> -1 THENSE%=0 

%:GOTO90 :rem 64 

570 IFOD$(0)="SALI"THEN790 :rem 220 

580 IF(OD$ (0)="SCENDI"OROD$(1)="GIU"OROD$(1)="SOTTO")ANDG 
I%<>-1THENSE%=GI%: GOTO90 : rem 58 

590 IF(OD$(0)="GUARDA"OROD$(0)="*"OROD$(0)="OSSERVA")ANDO 
D$(2)=""THENl50 : rem 63 

600 IFOD$(0)="PRENDI"OROD$(0)="PIGLIA"OROD$(0)="AFFERRA"T 
HEN920 : rem 203 

610 IFOD$(0)="ACCENDI"THEN1100 :rem 183 

620 IFOD$(0)="SPEGNI"THENl 150 :rem 156 

630 IFOD$(0)="ROMPI"OROD$(0)="SPACCA"OROD$(2)="SPEZZA"THE 
N1 1 9 0 :rem 160 

640 IFOD$(0)="TAGLIA"OROD$(0)="ABBATTI"THENl 29 0 : rem 224 

650 IFOD$(0)=""THENOD$(0)="{SPAZI}" :rem 107 

660 IFOD$(0)=LEFT$("INVENTARIO",LEN(OD$(0)))THENl380 


:rem 18 
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670 IFOD$(0)="BUTTA"OROD$(0)="POSA"OROD$(0)="GETTA"THENl4 



50 

: rem 

1 86 

680 

IFOD$(0)="APRI"THENl 580 

: rem 

1 5 

690 

IFOD$(0)="OSSERVA"OROD$(0)="ESAMINA"OROD$(0) 

="GUARDA" 


THENl620 

: rem 

104 

700 

IFOD$(0)="RUOTA"OROD$(0)="GIRA"THENl 680 

:rem 

229 

710 

IFOD$(0)="LEGGI"THENl 700 

: rem 

63 

720 

IFOD$(0)="ABBASSA"THEN1 730 

: rem 

200 

730 

IFOD$(0)="NUTRI"OROD$(0)="ALIMENTA"THENl780 

: rem 

24 

740 

IFOD$(0)="UCCIDI"THENl 820 

: rem 

1 42 

750 

IFOD$(0)=LEFT$("AIUTO! ! ! ! !",LEN(OD$(0)))THENl960 




: rem 

62 

760 

IFOD$(0)="MI"ANDOD$(1)="ARRENDO"THEN3050 

:rem 

10 

770 

IFOD$(0)="SPOSTA"THENl990 

: rem 

1 94 

780 

PRINT"{GIU'}NON CAPISCO:NON CONO =SCO QUESTE 

PAROLE O 


{ 3 SPAZI}NON POSSO APPLICARLE{ 2 SPAZI}ORA. 

"JGOT0410 



: rem 

65 

790 

IFOD$(2)=""THENPRINT"DOVE SALGO ?":GOTO410 

: rem 

21 3 

800 

IFOD$(2)< >"TORRE"ANDOD$(2)<>"BARCA"THENPRINT 

"COSA???? 


":GOT0410 

: rem 

249 

81 0 

IFOD$(2)="TORRE"THEN890 

: rem 

63 


820 IFSE%OSE% (3) THENPRINT"NON VEDO NESSUNA BARCAQUI. " :GO 
T °410 :rem 85 

830 PO$="SONO SULLA BARCA NELLABAIA.A NORD C'E'IL MA=RE C 
ON L'ISOLA. : rem 152 

84 0 SE%(3)=5:N% = -1:S%=-1:E%=-1:0% = -l:SU% = -1:GI% = 5:IFSE% (1 
)=-lANDSE%(2)=-lTHENN% = l3 ; rem 3 

850 Pi $ = "" :P2$='”' :P3$ = " " : IFSE%<>1 3THEN1 50 :rem 175 

860 PO$="SONO SULLA BARCA SULLASPIAGGIA DELL'ISOLA. ASUD 
C'E'IL MARE ; OLTRE C'E'LA BAIA. ;rem 138 

870 SE%(3)=13 :N% = -1 :S% = -1:E% = -1:0% = -l:SU% = -1:GI% = 13:IFSE% 
(1)=-1ANDSE%(2)=-1THENS%=5 ;rem 58 

880 GOTO'! 50 ;re m 111 

890 IFSE%<>25THENPRINT"QUALE TORRE?":GOT0410 :rem 25 

900 IFSE%(16)=-lTHENSE% = 27: GOTO90 :rem 166 

910 PRINT"NON HO NIENTE CHE MI{ 2 SPAZI}PERMETTA DI FARLO 
.":GOTO410 :rem 175 

920 IFNO%>=5THENPRINT"NON POSSO PORTARE NIENTE ALTRO.":GO 

0 : rem 179 

930 IFOD$(2)="REMI"THENl 070 : rem 10 

940 IFOD$(2)=""THENPRINTOD$(0)" COSA ?":GOTO410 :rem 140 

950 IFOD$(2)="BARCA"OROD$(2)="CANE"OROD$(2)="TRAPPOLA"THE 
NPRINT"NON ESSERE SCIOCCO!":GOT0410 :rem 81 

960 IFOD$(2)="TOPO"OROD$(2)="TOPI"OROD$(2)="SCHELETRO"THE 
NPRINT"NON ESSERE SCIOCCO!":GOT0410 ;rem 166 

970 IFOD$(2)="ALBERO"THENOD$(2)="TRONCO :rem 60 

980 IFOD$(2)="CORONA"THENOD$(2)="CORONA DI PIETRA 

:rem 137 

990 IFOD$(2)="TECA"ANDSE%=24THENPRINT"E'BLOCCATA AL SUO P 
IE=DESTALLO!":GOT0410 ; rem 1 
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1 000 

1010 

1020 

1030 

1040 

1 050 

1 060 
1 070 

1 080 

1 090 

1 1 00 

1110 

1 1 20 

1 1 30 
1140 
1 1 50 

1 1 60 

1170 

1 1 80 
1 1 90 
1 200 
1 21 0 

1 220 

1 230 

1 240 
1 250 

1 260 
1 270 

1 280 
1 290 
1 300 


IF(OD$(2)="CROCEFISSO"OROD$(2)="CROCIFISSO")ANDSE%=2 
lTHENPRINT"E'FISSATO AL MURO.":G0T0410 :rem 87 

IFOD$(2)="FANTASMA"OROD$(2)="STREGA"THENPRINT"MA,SEC 
ONDO TE,COME FACCIO???":GOT0410 : rem 145 

CO%=0:FORI=OTO27 :rem 202 

IFOD$(2)=NO$(I)ANDSE%(I)=SE%THENNO%=NO%+l:PRINT"O.K. 
":SE%(I)=-1 :CO% = l: 1 = 28 :rem 75 

IFBO=0ANDSE%(12)=-1THENPRINT"DIETRO LA BOTTE C'E’UNP 
ASSAGGIO!!":BO=l:GOSUB2630 :rem 26 

NEXT:IFCO%=OTHENPRINT"NON VEDO "OD$(l)" "OD$(2)" QUI 

• :rem 1 

GOTO410 :rem 149 

IFSE%(1)<>SE%ORSE%(2)<>SE%THENPRINT"NON VEDO I REMI 
QUI.": GOTO410 : rem 153 

IFNO%>=4THENPRINT"NON POSSO PORTARLI:GOT0410 

:rem 235 

PRINT"0.K.":NO%=NO%+2:SE%(1)= -l:SE%(2)=-l:GOT0410 

:rem 26 

IFOD$(2)="POLVERI"THENPRINT"MA SEI PAZZO????":GOT041 
0 :rem 52 

IFOD$(2)<>"TORCIA"THENPRINT"COSA????": GOTO410 

:rem 54 

IFSE%(5)<>-1THENPRINT"QUALE TORCIA ?":GOTO410 

:r em 23 9 

IFT0%>0THENPRINT"E'GIA'ACCESA.":GOT0410 :rem 165 

PRINT"O.K.":TO%=1:GOTO90 :rem 186 

IFOD$(2)<>"TORCIA"THENPRINT"NON SCHERZARE,PER PIA=CE 
RE !": GOTO410 :rem 20 

IFSE%(5)<>-lTHENPRINT"QUALE TORCIA ?":GOTO410 

:rem 243 

IFT0%<1THENPRINT"E 1 GlA'SPENTA.": GOTO410 :rem 211 

PRINT"0.K.":T0% = 0: GOTO410 :rem 233 

IFOD$(2)="CATENA"OROD$(2)="CATENE"THENl 240 : rem 195 

IFSE%O24THEN780 : rem 189 

IFOD$(2)< >"TECA"ANDOD$(2)<>"CRISTALLO"THENPRINT"NON 
SCHERZARE!!":GOT0410 :rem 188 

IFSE% (4) 0-1 ANDSE% (9) 0-1 ANDSE% ( 26 ) O-lTHENl 350 

:rem 121 

PRINT"0.K.":NO$(23)="TECA ROTTA":PRINT"CRASHHH! !": SE 
%(22)=24:GOTO 410 cremll 

IFSE%<>23THENPRINT"QUALI CATENE?":GOT0410 :rem 101 

IFSE%(25)=-l0THENPRINT"MA SONO GIÀ' TAGLIATE!":GOTO4 


1 0 


: rem 

IFSE% (26) 0-1 THEN91 0 :rem 

PRINT"0.K.":PRINT"CRRAKKK.":PRINT"IL FANTASMA SE 
VA ELIBERA IL PASSAGGIO. : rem 

SE%(25)=-l0:FORT=lTO750:NEXTT:GOTO90 :rem 

IFOD$(2)="CATENA"OROD$(2)="CATENE"THENl240 :rem 
IFSE% = 26AND(OD$ (2)="CORDA"OROD$(2)="TRAPPOLA")THENl3 
60 :rem 181 


208 
1 1 1 
NE 
1 79 
21 4 
1 96 
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1 310 IFOD$(2)<>"ALBERO"ANDOD$(2)< >"TRONCO"THENPRINT"COSA? 



??": GOTO410 

: rem 

1 40 

1320 

IFSE%=70RSE%=80RSE%=90RSE%=10ORSE%=l10RSE%= 

1 2THEN134 


0 

: rem • 

27 

1 330 

PRINT"NON VEDO NESSUN ALBEROQUI.": GOTO410 

: rem 

1 03 

1 340 

IFSE%(9)=-1THENPRINT"0.K.":SE%(27)=SE%:GOT0410 




: rem 

226 

1 350 

GOTO910 

: rem 

1 56 

1 360 

IFSE%(9)=-1ORSE%(6)=-lORSE%(26)= -1THENPRINT 

,f O • K. 

" :N% 


= 28:S% = 16:SE%(24)=-10 :GOT0410 

: rem 

1 42 

1 370 

GOTO!350 

: rem 

205 

1 380 

CO % = 0 :FOR1 = 0 TO 2 7 

: rem 

21 1 

1 390 

IFSE% (I) O-lTHENl 430 

: rem 

1 30 

1 400 

IFCO%=OTHENCO%=1:PRINT"{RVS}HO LE SEGUENTI 

COSE: 




: rem 

1 83 

1410 

IFSE%(1)=-1ANDSE%(2)=-1ANDI=1THENI=2:PRINT" 

DUE REMI" 


:GOTOl430 

: rem 

1 59 

1 420 

PRINTAR$(I)" "NO$(I) 

: rem 

68 

1 430 

NEXT:IFCO%=OTHENPRINT"NON HO NULLA CON ME. 

: rem * 

1 1 2 

1 440 

GOTO410 

: rem 

151 

1450 

IFOD$(2)="CORONA"THENOD$(2)="CORONA DI PIETRA 




: rem 

1 78 

1460 

IFOD$(2)=""THENPRINTOD$(0)" COSA ?":GOTO410 

: rem 

1 86 

1470 

IFOD$(2)="SCALA"ANDSE%=27THENPRINT"NON LO FACCIO 

: POI 


NON POSSO PIU'SCENDERE! 1 !"SGOT0410 

: rem 

69 

1 480 

IFOD$(2)="ALBERO"THENOD$(2)="TRONCO 

: rem 

1 05 

1 490 

IFOD$(2)="REMI"THENl 560 

: rem 

64 

1 500 

CO% = 0: FORI = 0TO27 

: rem 

205 

1 51 0 

IFOD$(2)=NO$(I)ANDSE%(I)=-1THENNO% = NO% -1 :SE%(I) = 

SE% : 


CO%=l : 1 = 28 

: rem 

79 

1520 

NEXT:IFCO%=0THENPRINT"NON HO "OD$(2)" CON ME." 




: rem 

1 48 

1 530 

IFCO% = 1THENPRINT"0.K. 

: rem 

81 

1 540 

IFOD$(2)="TRONCO"ANDCO%=lTHENl30 

: rem 

1 64 

1 550 

GOTO410 

: rem 

1 53 

1 560 

IFSE% (2) 0-1 ORSE% (1)0-1 THENPRINT"NON HO I 

REMI 

CON 


ME.": GOTO410 

: rem 

203 

1 570 

PRINT"0.K.":NO% =NO%-2 :SE%(1)=SE%:SE%(2)=SE% 

; : GOTO410 



: rem 

221 

1 580 

IFOD$(2)="PONTE"AND(SE% = 280RSE% = 29)THENl 730 

i : rem 

38 

1 590 

IFOD$(2)< >"PORTA"THENPRINT"COSA? ? ? ?" : GOTO7 8 0 




: rem 

1 6 

1 600 

IFSE% (13) O-lTHENl 3 50 

: rem 

1 52 

1610 

PRINT"NON HO LA CHIAVE GIU =STA.":GOT0410 

: rem 

1 52 



: rem 

0 
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Guerra spaziale 


3K RAM e joystick 


I biechi Minsoniani sono in lotta 
con la Terra per il prendominio sul 
Sistema Solare e tu, al comando 
della tua astronave da caccia, in- 
3333 Ì un duello mortale con una 
nave nemica. Usa il tuo fedele joy¬ 
stick per cambiare direzione e per 
azionare il cannone laser a lunso 
rassio. La battaslia può averluoso 
in tre ambienti diversi: all'Interno 
del Sistema Solare, oppure nella 
Zona dei Buchi Neri, oppure infine 
nello Spazio Esterno: ciò che di- 
stinsue i tre scenari è la forza di 
Sravità. Nel primo devi stare atten¬ 
to a non passare troppo vicino al 
Sole, altrimenti la sua attrazione 
può catturarti; nel secondo c'è un 
Buco Nero (invisibile, ovviamen¬ 
te!) che devi evitare, e che puoi 
individuare notando come, pas¬ 
sando nella sua zona, la tua rotta 
vensa influenzata dalla sua attra¬ 
zione,- nel terzo, infine, non c'è sra¬ 
vità. La tua nave viene distrutta se 


Programma 1 


un Minsoniano ti colpisce, se ti 
scontri con un asteroide o col ne¬ 
mico, oppure infine se cadi nel So¬ 
le o in un Buco Nero. Premendo la 
barra spaziatrice compi un balzo 
nell'Iperspazio e riappari in un 
punto a caso dello schermo. Quan¬ 
to ti trovi nel Sistema Solare ricorda¬ 
ti che, se il Sole viene spento dai 
cannoni laser, esso si trasforma in 
un Buco Nero. Vinci se disintesri col 
tuo cannone 5 navi nemiche prima 
di essere a tua volta abbattutto 5 
volte. Puoi scesliere tra 9 livelli di 
difficoltà, che determinano la quan¬ 
tità di asteroidi presenti. 

Il sioco, che 3 ira su VIC 20 con 
espansione da 3K, è diviso in due 
parti; la seconda deve venir salva¬ 
ta, chiamandola "G", subito dopo 
la prima. Chi usa il disk drive elimini 
la parola REM nella risa 622 del 
prosramma 1. Sia da nastro che da 
disco il caricamento del prosram¬ 
ma 2 avviene automaticamente. 


10 REM GUERRA SPAZIALE 1 :r em 149 

40 POKE3 6 87 9,27 :PRINT"{CLR}{ 2 SPAZI}{RVS} GUERRA 

{ 2 SPAZI}SPAZIALE " :rem 8 

50 PRINT"{ 4 GIU' }UN ATTIMO PREGO _" :rem 242 

60 X=PEEK(56)- 2 :POKE56,X:POKE52,X :rem 231 

70 POKE51,PEEK(55):CLR :rera 35 

80 CS=256*PEEK(52)+PEEK(51):S=7680 :rem 133 

90 FORI=CSTOCS+511 :POKEI,PEEK(I + 32768-CS):NEXT :rem 117 
100 READX:IFX<0THEN130 ;rem 85 

110 FORI=XTOX+7:READJ:POKEI,J:NEXT :rem 245 

120 GOTOIOO • r* a m Q d. 
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1 30 

1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 
230 
240 
250 
260 
31 0 
320 
330 
340 
350 
360 
370 
380 
390 
400 
41 0 
420 
430 
440 
450 
460 
620 
622 
625 

630 
640 
650 
660 
670 
680 
690 
700 
71 0 
720 
730 
740 
750 
760 
770 
780 


INPUT" { 2 GIU'H 3 SPAZI} ISTRUZIONI { 

3 SPAZI}N 


{ 3 SIN}";A$ 


: rem 

111 

IFA$ = "N"THEN62 0 


: rem 

31 

PRINT"{CLR}DEVI COMBATTERE UNA" 


: rem 

236 

PRINT"BATTAGLIA MORTALE CON-" 


: rem 

1 8 

PRINT"{SU}TRO UNA NAVE MINGO-" 


: rem 

1 64 

PRINT"NIANA NELLA FASCIA DI" 


: rem 

1 1 3 

PRINT"ASTEROIDI DI ANTARES." 


: rem 

21 6 

PRINT"LA TUA NAVE E' VIOLA," 


: rem 

23 

PRINT"LA NAVE AVVERSARIA" 


: rem 

1 5 

PRINT"BLU. USA IL JOYSTICK" 


: rem 

1 00 

PRINT"PER MUOVERTI E SPARA-" 


: rem 

1 77 

PRINT"RE CON IL LASER. CON" 


: rem 

248 

PRINT"'SPAZIO' SALTI NEL-" 


: rem 

21 

PRINT"L'IPERSPAZIO." 


: rem 

1 6 

PRINT"{ 2 GIU’}PREMI UN TASTO" 


: rem 

50 

A$="":GETA$:IFA$=""THEN320 


: rem 

109 

PRINT"{CLR}VIENI SCONFITTO SE:" 


: rem 

0 

PRINT”{GIU'}1 SEI COLPITO DAI" 


: rem 

1 1 5 

PRINT"{ 2 SPAZI}MINGONIANI" 


: rem 

82 

PRINT"{GIU'}2 SEI RISUCCHIATO IN" 


: rem 

99 

PRINT"{ 2 SPAZI}UN BUCO NERO" 


: rem 

107 

PRINT"{GIU'}3 COLLIDI CON UN" 


: rem 

51 

PRINT"{ 2 SPAZI{ASTEROIDE" 


: rem 

1 3 

PRINT"{GIU'}4 CADI NEL SOLE PER" 


: rem 

1 80 

PRINT"{ 2 SPAZI{EFFETTO DELLA" 


: rem 

21 3 

PRINT"{ 2 SPAZI{GRAVITA'" 


: rem 

1 56 

PRINT"{GIU'}5 TI SCONTRI CON LA" 


: rem 

21 8 

PRINT"{ 2 SPAZI{NAVE MINGONIANA" 


: rem 

1 1 6 

PRINT"{ 2 GIU'{PREMI UN TASTO" 


: rem 

55 

A$ = "":GETA$:IFA$ = ""THEN46 0 


: rem 

1 1 9 

PRINT"{CLR}{ 3 GIU'}LO"CHR$(34)"G"CHR$(34) ; 

: rem 

1 30 

REM PRINT", 8 " 


: rem 

1 79 

PRINT"{HOME}":POKE631 ,13 :POKE632,82 : 

POKE633 

,21 3 :POKE 6 

34,13 :POKEl98,4:END 


: rem 

1 35 

DATA7168,192,240,127,103,34,54,63,50 


: rem 

231 

DATA71 76,4,1 4,62,227,227,62,14,4 


: rem 

33 

DATA7184,50,63,54,34,103,127,240,192 


: rem 

231 

DATA7192,24,24,60,36,102,231,126,24 


: rem 

1 72 

DATA7208,24,126,231,102,36,60,24,24 


: rem 

1 71 

DATA7216,3,15,254,230,68,108,252,76 


: rem 

1 90 

DATA7224,32,112,124,199,199,124,112, 

32 

: rem 

78 

DATA7232,76,252,108,68,230,254,15,3 


: rem 

1 81 

DATA7240,0,0,12,28,56,48,0,0 


: rem 

67 

DATA7248,0,0,48,56,28,12,0,0 


: rem 

76 

DATA7256,0,24,24,24,24,24,0,0 


: rem 

118 

DATA7264,0,0,0,62,62,0,0,0 


: rem 

21 6 

DATA72 96,0,1 1 2,1 26,102,32,48,48,0 


: rem 

75 

DATA7304,228,18,37,68,36,18,33,198 


: rem 

1 56 

DATA7312,0,48,48,32,102,126,112,0 


: rem 

66 

DATA7320,68,170,145,0,34,85,137,129 


'i rem 

1 92 
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7 90 DATA7328,! 53,90,60,255,255,60,90,1 53 
800 DATA7336,1 29,1 37,85,34,0,1 45,1 70,68 
810 DATA7344,0,1 4,1 26,1 02,4,1 2,1 2,0 
820 DATA7352,198,33,1 8,3 6,68,37,1 8,228 
830 DATA7360,0,12,12,4,102,126,14,0,-1 


:rem 246 
:rem 192 
:rem 208 
:rem 156 
:rem 90 


Programma 2 


1 REM GUERRA SPAZIALE 2 
3 PRINT"{CLR}DIFFICOLTA'" 


7 PRINT"A{ 3 SPAZI}{RVS}9{OFF}-IMPOSSIBILE 
9 A$ = "":GETA$:SL=VAL(A$) : IFA$<"1"ORA$ >"9"THEN9 
11 PRINT"{CLRjOPZIONI" 

13 PRINT"{RVS}S{OFF}lSTEMA SOLARE" 

15 PRINT"{RVS}B{OFF}UCHI NERI" 

17 PRINT"{RVS}N{OFFÌIENTE GRAVITA'" 

19 GETA$:IFA$<>"S"ANDA$<>"B"ANDA$<>"N"THENl9 

20 IFA$ = "S"THENG = 1 

21 IFA$="B"THENG=2 
23 IFA$="N"THENG=0 

40 C=22:R=23:S = 7680:A=30720:DD = 371 54 
50 Pi=37151 :P2=371 52 
60 POKE36 879,27:T=3:CY=4:CE=6:CA=0 
70 CS=7:CQ=0:CM=0:X=-1 

80 V=36878:S1=V-2 :S2=V-1:DIMC%(2,2) ,OC% (2,2) 

90 FORI=0TO2:FORJJ=0TO2:X=X+l 
100 DC%(I,JJ)=X:OC%(I,JJ)=X+16 :NEXT:NEXT 
110 DEFFNA(Z)=S+X+C*Y 
120 DEFFNB(Z)=PEEK(FNA(Z) ) 

130 DEFFNR(Z)=INT(RND(1)*Z) 

140 POKEV-9,255:PRINT"{CLR}{BLU}":X=S+A 
150 FORI=XTOX+505 :POKEX,T:NEXT 
160 POKE36879,62 :FORI = 1T03 + 2*SL 
170 X=FNR(C):Y=FNR(R) 

180 POKEFNA(0) ,46 :POKEFNA(0)+A,CA:NEXT 
190 IFGOl THEN220 
200 X=11:Y=12:POKEFNA(0),20 
210 POKEFNA(0)+A ,CS:SX=X:SY=Y 
220 IFG=2THENSX=FNR(C):SY=FNR(R) 

230 X=FNR (C) : Y=FNR (R) : IFFNB (0) O32THEN230 
240 D=X:E=Y:Q=FNA(0):U=-1:0=FNR(3)-1 
250 POKEFNA(0),DC%(U+l,0+1):POKEFNA(0)+A,CY 
260 X=FNR (C) : Y=FNR (R) :IFFNB(0) O32THEN260 
270 H=X:L=Y:K=FNA(0):M=1:N=FNR(3)-1 
280 POKEFNA(0),DC%(M+1,N+1):POKEFNA(0)+A,CE 
290 A$="":GETA$:IFA$=" "THEND=FNR(C):E=FNR(R) 

300 GOSUBl010:IFFBTHENX=D:Y=E:PX=U:PY=0:GOSUB680: rem 


: rem 

1 02 

: rem 
IO 11 

1 47 

:rem 

209 

: rem 

1 1 3 

: rem 

85 

: rem 

238 

: rem 

1 81 

: rem 

1 1 6 

: rem 

21 3 

: rem 

3 

: rem 

1 4 

: rem 

255 

: rem 

1 1 

: rem 

204 

: rem 

31 

: rem 

224 

: rem 

1 6 

: rem 

140 

: rem 

85 

: rem 

144 

: rem 

229 

: rem 

22 

: rem 

87 

: rem 

147 

: rem 

213 

: rem 

63 

: rem 

0 

: rem 

8 

: rem 

222 

2 rem 

9 

2 rem 

60 

2 rem 

22 

2 rem 

1 92 

2 rem 

90 

2 rem 

1 92 

2 rem 

1 98 

2 rem 

44 

2 rem 

1 66 

2 rem 

30 

2 rem 

126 
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31 0 

B=0:F=0:IFJ0THENB=1 

: rem 

82 

320 

IFJ2THENB = -1 

: rem 

1 72 

330 

IFJlTHENF=1 

: rem 

1 31 

340 

IFJ3THENF=-1 

: rem 

179 

350 

IFB=0ANDF=0THENB=U:f=o 

: rem 

107 

360 

U=B:0=F:IFG=0THEN410 

: rem 

1 86 

370 

B=SX-D:F=SY-E:J=SQR(B*B+F*F) 

: rem 

1 67 

380 

J= (20-J)/30:J = l- J*J 

: rem 

1 87 

390 

IFRND(1)<JTHEN410 

: rem 

21 9 

400 

B=SGN(B):F=SGN(F):D=D+B:E=E+F:G0T0420 

:rem 

177 

41 0 

D=D+U:E=E+0 

: rem 

85 

420 

IFE<0THENE=R 

: rem 

21 7 

430 

IFE>RTHENE=0 

: rem 

220 

440 

IFD >CTHEND= 0 

: rem 

204 

450 

IFD<0THEND=C 

: rem 

203 

460 

X=D:Y=E:J=FNB(0):IFJ=32THEN480 

: rem 

32 

470 

IFJ=46ORJ=20ORFNA(0)=KTHEN820 

: rem 

237 

480 

IFNOT(X=SXANDY=SY)THEN510 

: rem 

1 35 

490 

A$="SEI STATO INGOIATO DA UN BUCO NERO!" 

: rem 

239 

500 

WC=WC+1:GOTO970 

: rem 

1 1 7 

51 0 

POKEQ,32 :POKEQ+A,T:Q=FNA(0) 

: rem 

1 07 

520 

POKEQ, DC%(U+l,0+1):POKEQ+A,CY 

: rem 

1 82 

530 

J=0:IFFNR(9)>SLTHEN560 

: rem 

47 

540 

M=D-H:N=E-L:M=SGN(M):N=SGN(N) 

: rem 

245 

550 

IFM=0ORN=0THENJ= 1 

: rem 

38 

560 

H=H+M:L=L+N:IFH< 0THENH=C 

: rem 

220 

570 

IFH>CTHENH=0 

: rem 

21 6 

580 

IFL>RTHENL=0 

: rem 

240 

590 

IFL<0THENL=R 

: rem 

239 

600 

X=H:Y=L 

: rem 

1 43 

610 

IFFNB(0)=32THEN630 

: rem 

231 

620 

M=FNR(3)-1 :N=FNR(3)-1 :GOTO560 

: rem 

1 33 

630 

POKER,32 :POKEK+A,T:K=FNA(0 ) 

: rem 

92 

640 

POKER,DC%(M+1,N+1):POKEK+A,CE 

: rem 

144 

650 

IFNOT(RND(1)<.1 OR(J=1ANDFNR(9)<SL))THEN670 

: rem 

1 

660 

PX=M:PY=N:GOSUB680 

: rem 

1 48 

670 

GOTO290 

: rem 

1 1 3 

680 

Z=PX*PY:POKEV,8 :IFZ = 1THENJ=10 

: rem 

1 23 

690 

IFZ=-1THENJ=9 

:rem 

1 8 

700 

IFZ = 0ANDPX= 0THENJ=11 

: rem 

237 

710 

IFZ=0ANDPY=OTHENJ=12 

: rem 

240 

720 

FORI = 1TOl0 :X=X+PX:Y=Y+PY:POKES2,230-1 

: rem 

87 

730 

IFIOl THENPOKEZ , 32 : POKEZ+A,T: IFX>CTHENX=0 

: rem 

1 71 

740 

IFX< 0THENX=C 

: rem 

245 

750 

IFY>RTHENY=0 

: rem 

9 

760 

IFY<0THENY=R 

:rem 

8 

770 

B=FNB(0):IFB=32THEN800 

: rem 

232 

780 

IFNOT(B=46ORB=20ORFNA(0)=KORFNA(0)=Q)THEN800 

: rem 

1 66 

790 

1=10:NEXT:GOTO820 

: rem 

1 3 

800 

Z=FNA(0):POKEZ,J:POKEZ+A,CM:NEXT 

: rem 

34 

810 

POKEZ,32 :POKEZ+A,T:POKEV,0 :RETURN 

:rem 

1 51 
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820 POKES2,230 :SC=X-1 :IFSC<0THENSC = 0 
830 FC=X+1:IFFC>CTHENFC=C 
840 SR=Y-1:IFSR<0THENSR=0 
850 FR=Y+1:IFFR>RTHENFR=R 

860 FORX=SCTOFC:FORY=SRTOFR:J=OC%(X-SC,Y-SR) 

870 POKEFNA(0),J:POKEFNA(0)+A,CQ:NEXT:NEXT 
880 POKES1 ,220 :FORJJ=l5TOOSTEP-1 
890 POKEV,JJ:FORJl=1TO50:NEXT:NEXT 
900 POKEV,0 :FORX=SCTOFC:FORY=SRTOFR 
910 POKEFNA(0),32:POKEFNA(0)+A,T:NEXT:NEXT 
920 IFPEEK (Q) O32THEN940 

930 A$="TI SEI DISINTEGRATO!":WC=WC+1:GOTO970 
940 IFPEEK (K) O32THEN960 
950 A$="HAI VINTO!":WH=WH+1:GOTO970 
960 GOTO810 

970 POKEV-9,240:PRINT"{CLR}{ 3 GIU'}";A$ 

980 PRINT"{ 2 GIU'}PUNTI : VIC";WC;"{ 2 SPAZI}TU" 

990 FORJJ=lT02500:NEXT:GOTO!050 
1000 END 

1010 POKEDD,127:P=PEEK(P2)ANDl28 
1020 J0=-(P=0):POKEDD,255 

1 0 30 P = PEEK(Pi) :Jl=-((PAND 8 )=0) :J2 = _ ( (PANDI 6 )=0) 
1 040 J3 = - ( (PAND4)=0) :FB=-((PAND32)=0) : RETURN 
1050 IFWH=5THENl080 
1060 IFWC=5THENl100 
1070 GOTO!40 

1080 PRINT"{CLR}{ 3 SPAZI}CONGRATULAZIONI!" 

1090 GOTO!110 

1100 PRINT"{CLR}{ 3 SPAZI}SEI UN DISASTRO!" 

1110 FORJJ=lT04000:NEXT:RUN 


: rem 

207 

: rem 

32 

: rem 

80 

: rem 

no 

: rem 

174 

:rem 

119 

: rem 

21 6 

: rem 

234 

: rem 

1 37 

: rem 

77 

: rem 

1 56 

: rem 

200 

: rem 

1 54 

: rem 

43 

: rem 

1 1 3 

: rem 

1 90 

; WH 


: rem 

23 

: rem 

1 67 

: rem 

1 52 

: rem 

1 08 

: rem 

no 

: rem 

1 38 

: rem 

239 

: rem 

94 

: rem 

83 

: rem 

1 50 

: rem 

1 99 

: rem 

1 98 

: rem 

52 

: rem 

1 87 


ERRATA CORRIGE 

Nel programma "RUBRICA INDIRIZZI" per Ciò, pubblicato sul n. 23, vanno 
apportate alcune correzioni: 

- cancellare le linee 1970 e 2000 e la linea 2120 

- modificare le seguenti linee: 

1 235 IFG$=CHR$(13)THENPOKE239,0 :GOTOl270 :rem 77 

1 345 IFG$=CHR$(13)THENPOKE23 9,0 :GOTOl 470 :rem 81 

1 425 IFG$ =CHR$(13)THENPOKE239,0:GOTO1 460 : rem 79 

1 960 INPUT#7,Q:FORSS = lTOQ:FORJ=1T06: INPUT#7,A$(SS,J) :NEXT 
:NEXT :rem 38 

2110 PRINT#6,Q:FORLS=lTOQ:FORJ=lT06:PRINT#6,A$(LS,J)+CHR$ 
(1) :NEXT:NEXT » ; rem 178 

2880 IFG$="{GIU'}"ORG$="{DES}"ORG$="{SU}"ORG$="{SIN}"ORG$ 
=CHR$(20)THENG$="" :rem 104 
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Clós-pius/q. 


Titolatore di cassette Stampante 


Se possedete una stampante Com¬ 
modore e, come me, molte decine 
di cassette contenenti registrazioni 
musicali (o anche software per il 
vostro CI 6), allora questo sempli¬ 
ce programma può esservi molto 
utile. Esso vi permette di stampare 
le copertine dei vostri nastri in mo¬ 
do razionale e ordinato. 

Il funzionamento del programma si 
basa sul fatto che, sulle stampanti 
Commodore, una matrice di 25 ri¬ 
ghe per 40 colonne ha esattamente 
le stesse dimensioni di una coperti¬ 
na standard per cassette. Come ri¬ 
corderete, anche una " schermata’’ 
del vostro 06 è composta da 25 
righe di 40 caratteri; il programma 
mostra quindi sul video la coperti¬ 
na (ancora priva di titoli e nomi), 
in modo che voi possiate compi¬ 
larla. A tale scopo compare (in alto 
a sinistra) un cursore, che potete 
spostare coi soliti tasti di controllo. 
Potete digitare ciò che volete, 
eventualmente anche cancellando 
le parti precompilate. Attenzione 
però: il tasto INST/DEL non funzio¬ 
na, per cui qualsiasi correzione va 


effettuata posizionandosi sul ca¬ 
rattere errato e battendo quello 
giusto. 

Quando la copertina è pronta, po¬ 
tete stamparla premendo il tasto 
RETURN. Effettuata la stampa, po¬ 
tete ottenere un'altra copia pre¬ 
mendo nuovamente RETURN 
(eventualmente dopo aver fatto 
delle correzioni), oppure creare 
una nuova copertina usando il ta¬ 
sto ESC. Battete infine INST/DEL 
quando avete finito di utilizzare il 
programma. 

Per concludere, vi segnaliamo la 
versatilità della subroutine che 
stampa la copertina (linee 10000- 
10070). Essa effettua un "hard co¬ 
py" in bassa risoluzione del video, 
cioè stampa su carta la copia esat¬ 
ta di una schermata di 1000 carat¬ 
teri del CI6. L'unica limitazione è 
che un carattere in reverse sul vi¬ 
deo appare normale su carta. Pote¬ 
te inserire la routine in un vostro 
programma, e chiamarla con un 
COSUBIOOOO ogni volta che vole¬ 
te stampare il contenuto dello 
schermo. 


1 

X=1 :S = 0 

: rem 

241 

2 

COLORO,!:COLOR4,2,2:PRINT"[<!>]" 

: rem 

1 1 5 

3 

GOSUBl00 

: rem 

68 

1 0 

GETA$ 

: rem 

1 66 

1 1 

P=3071+X:C=PEEK(P):POKEP,l02:POKEP,C 

: rem 

93 

1 5 

IFA$ = ""THENl 0 

: rem 

1 07 

20 

A=ASC(A$) 

: rem 

1 09 

21 

IFA=13THENGOSUB1OOOOtGOTOl0 

: rem 

72 

22 

IFA=27THENRUN 

: rem 

254 
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23 

IFA=20THENSCNCLR:END 



: rem 

21 7 

24 

I FA=14 5THENX= 

X-40:S=1 



: rem 

1 81 

25 

I FA=157THENX= 

X-1:S=1 



: rem 

1 34 

26 

IFA=13THENX=X+40:S= 1 



: rem 

1 27 

30 

IFA=17THENX=X+40:S= 1 



: rem 

1 26 

35 

IFA=29THENX=X+1 :S = 1 



: rem 

83 

37 

I FX<1ORX>1 000THENX=1 



: rem 

1 71 

40 

IFS>0THENS=0: 

GOTOl 0 



: rem 

1 1 9 

60 

IFA>63ANDA<96THENA=A-64 



: rem 

33 

62 

IFA>31ANDA<64THEN72 



: rem 

44 

64 

IFA> 96ANDA<128THENA=A-32 



: rem 

82 

66 

IFA>159ANDA<192THENA=A-64 



: rem 

1 38 

72 

IFX<1ORX>1000THENX= 1 



: rem 

1 70 

73 

P=3071+X 




: rem 

69 

75 

POKEP/A 




: rem 

88 

76 

x=x+l 




: rem 

1 82 

80 

GOTOl0 




: rem 

2 

1 00 

PRINT"[<A>]{ 

19*}[<R>] { 1 8 

* 

} [<S>]"; 

: rem 

109 

1 1 0 

PRINT"- - 

A 

— 

- -- B -- 

n .• 
r 







: rem 

43 

1 20 

PRINT"- 1){ 

1 6 SPAZI}- 1 ) { 

1 5 

SPAZI}-" 

: rem 

234 

1 30 

PRINT"- 2') { 

1 6 SPAZI}- 2) { 

1 5 

SPAZI}-" 

: rem 

237 

1 35 

PRINT"- 3) { 

1 6 SPAZI}- 3) { 

1 5 

SPAZI}-" 

: rem 

244 

1 40 

PRINT"- 4) { 

1 6 SPAZI}- 4) { 

1 5 

SPAZI}-" 

: rem 

242 

1 45 

PRINT"- 5) { 

1 6 SPAZI}- 5) { 

1 5 

SPAZI}-" 

: rem 

249 

1 50 

PRINT"- 6 ) { 

1 6 SPAZI}- 6 ) { 

1 5 

SPAZI}-" 

: rem 

247 

1 60 

PRINT"- 7) { 

1 6 SPAZI}- 7) { 

1 5 

SPAZI}-" 

; : rem 

250 

1 65 

PRINT"- 8 ) { 

1 6 SPAZI}- 8 ) { 

1 5 

SPAZI}-" 

; : rem 

1 

1 70 

PRINT"- 9) { 

1 6 SPAZI}- 9) { 

1 5 

SPAZI}-" 

; :rem 

255 

1 75 

PRINT"-10) { 

1 6 SPAZI}-l0) { 

1 5 

SPAZI}-" 

; : rem 

84 

1 85 

PRINT"-! 1 ) { 

1 6 SPAZI}-l1) { 

1 5 

SPAZI}-" 

; : rem 

87 

1 90 

PRINT"-1 2) { 

1 6 SPAZI}-l2) { 

1 5 

SPAZI}-" 

; : rem 

85 

200 

PRINT"-! 3) { 

1 6 SPAZI}-!3) { 

1 5 

SPAZI}-" 

; : rem 

79 

210 

PRINT"[<Q>]{ 

5 *}[<R>]{ 13 

*} 

[ <E>] { 18 

*} [<w>] "; 







: rem 

96 

220 

PRINT"-N.{ 3 

SPAZI}-LATO A: 

{ 

25 SPAZI}- 

:rem 

94 

225 

PRINT"-TIPO 

-LATO B: { 25 SPAZI }-"; 

: rem 

36 

230 

PRINT"[<Q> ]{ 

5 *}[ <E> ]{ 13 

*} [<R>] { 18 

*}[<W>] "; 







: rem 

98 

240 

PRINT"-14) { 

16 SPAZI } -1 4 ) { 

1 5 

SPAZI }-" 

; : rem 

85 

250 

PRINT"-!5) { 

1 6 SPAZI}-l5) { 

1 5 

SPAZI}-" 

; : rem 

88 

260 

PRINT"-! 6){ 

1 6 SPAZI}-1 6) { 

1 5 

SPAZI }-" 

; : rem 

91 

270 

PRINT"-1 7) { 

1 6 SPAZI}-l7) { 

1 5 

SPAZI }-" 

; : rem 

94 

280 

PRINT"-! 8) { 

1 6 SPAZI}-l8) { 

1 5 

SPAZI }-" 

; : rem 

97 

290 

PRINT" [<Z>] { 

19*} [ <E> ] {18* 

}"; 

: rem 

1 97 

300 

POKE4071 ,1 25 




: rem 

82 

399 

RETURN 




: rem 

1 33 

1 0000 AZ$ = " " :OPEN4,4:LZ=3072:FORLZ=LZTO4071STEP40 : FORIZ=L 


ZTOLZ+39:ZZ=PEEK(IZ) 



: rem 

1 58 

10010 IFZZ< 96ANDZZ>63THENZZ = ZZ + 32 

: GOTO1 00 4 0 :rem 

21 8 

1 0020 IFZZ< 32THENZ Z = ZZ + 64 : GOTO! 0040 

: rem 

168 
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1 0030 

IFZZ<128ANDZZ>96THENZZ=ZZ+64 

: rem 

1 71 

1 0040 

ZZ$=CHR$(ZZ):AZ$=AZ$+ZZ$:NEXT 

: rem 

1 29 

1 0050 

IFAZ$="{ 40 SPAZI}"THENPRINT#4:GOTOl0070 

: rem 

67 

1 0060 

PRINT#4,AZ$ 

: rem 

1 98 

1 0070 

AZ$ = "":NEXT:CLOSE4:RETURN 

: rem 

1 75 



CI6-- pius/q. 


Explorer 



Questo simpatico gioco spaziale 
gira su 06 e PLUS/4, 
in esso bisogna guidare una navet¬ 
ta spaziale attraverso lo spazio, 
superando vari ostacoli. 

Dopo la partenza bisogna sorvola¬ 
re la città a minor altezza possibile, 
cercando di non scontrarsi contro 
i palazzi. 

In questa prima parte del viaggio 
più si vola in basso, più il punteg¬ 
gio aumenta. 

Se invece si vola alla massima al¬ 
tezza concessa il punteggio decre¬ 
sce. Dopo aver superato la città bi¬ 
sognerà evitare le numerose me¬ 
teore presenti attorno al pianeta. 

In questa fase, al contrario della 
precedente, l’altezza di volo non 
conta e il punteggio aumenta sem¬ 
pre allo stesso ritmo. 

Naturalmente c'è il rischio di 
schiantarsi contro le meteore e i 


palazzi, e in tal caso, per ogni 
scontro, il punteggio diminuisce di 
7 00 punti. 

Dopo aver superato tutte e due le 
zone il computer mostra il punteg¬ 
gio finale. Per muovere l’astronave 
in alto e in basso sono necessari i 
tasti: 

Q . per alzarsi e 

Z . per abbassarsi. 

Il punteggio è sempre aggiornato 
e viene mostrato nell'angolo in alto 
a sinistra dello schermo. 

N.B. 

Il programma utilizza una piccola 
routine in linguaggio macchina, 
perciò è necessario batterlo con 
molta cautela e salvarlo prima di 
farlo girare, perché il minimo errore 
di battitura potrebbe mandare in 
Tilt il 06, annullando tutto il lavo¬ 
ro di digitazione. 


100 POKE55,16:POKE56,39:CLR :rem 68 
110 GOSUB580 : rem 175 
120 T$ = "{RVS} {OFF}{SIN}{SU}{SIN}{SU}{SIN}{SU}{SIN}{SU} 

{SIN}{SU}{SIN}{SU}{SIN}{RVS} {OFF}" :rem 133 
130 COLORO, 7 , 5 : COLOR4, 7 , 5 :rem 184 
140 K$ = " {RVS} {OFF}{SU}{SIN}": FORI = 1 TOl9 : 1 $ = I $+K$: NEXT 

: rem 160 
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1 50 

SA$="{ 5 SPAZI}{GIU'}{ 5 SIN} N[<Y>]M {GIU 

'}{ 5 SIN} 


M [<P>]N {GIU'}{ 5 SIN}{ 3 SPAZI}" 

: rem 

209 

1 60 

RR$ = "{HOME}": FORI = 1T024:RR$ =RR$ + "{GIU'}":NEXT:FORI 

= 1 T 


039:CC$=CC$+"{DES}":NEXT 

: rem 

1 39 

170 

W$="{HOME}"+LEFT$(RR$,25)+LEFT$(CC$,38) 

: rem 

21 7 

1 80 

FORI = l 1 000TO11071 : READA:POKEI,A:NEXT 

: rem 

1 96 

1 90 

PRINT"{CLR}"; :Kl =11 000 

: rem 

30 

200 

P=198:R=12:C=20:SA=3072:SL=2048:LM=300 

: rem 

103 

21 0 

PO=SA+(R*40)+C 

: rem 

205 

220 

PRINT"{CLR}";TAB(1 6);"PARTE UNO"; 

: rem 

234 

230 

FORSC=lTO300:SYSKl:PRINTW$;LEFT$(I$,RND (1) 

*70) ; 




: rem 

83 

240 

IFPEEK(PO+83)=160ORPEEK(PO+82)=160THENGOSUB690 




: rem 

1 7 

250 

A=PEEK(P):IFA=62THENGOSUB450 

: rem 

21 0 

260 

IFA=12THENGOSUB4 70 

: rem 

82 

270 

S1=S1+R-6 :PRINT"{HOME}{RVS}";iPRINTSl ; ;PRINT"{OFF} 



{SIN}{ 2 SPAZI}"; 

: rem 

36 

280 

PRINTLEFT?(RR$,R) ;LEFT$(CC$,C) ;SA$; :NEXT 

: rem 

168 

290 

PRINT"{HOME}";TAB(16);"PARTE DUE"; 

: rem 

93 

300 

FORSC=lTO300:SYSKl 

: rem 

105 

310 

IFSW=0THENSW=1:GOTO350 

: rem 

1 40 

320 

sw=o 

: rem 

1 72 

330 

HK=INT(RND(1)*22):IFHK<5THEN330 

: rem 

40 

340 

FK=3072+(HK*40)+39:POKEFK,81 

: rem 

244 

350 

IFPEEK(PO+3)=160ORPEEK(PO+44)=8l0RPEEK(PO+4)=81THENGO 


SUB690 

: rem 

1 02 

360 

A=PEEK(P):IFA=62THENGOSUB450 

: rem 

21 2 

370 

IFA=12THENGOSUB470 

: rem 

84 

380 

S1=S1+1:PRINT"{HOME}{RVS}";:PRINTS1;:PRINT 

"{OFF}{SIN} 


{ 2 SPAZI}"; 

: rem 

1 62 

390 

PRINTLEFT$(RR$,R) ;LEFT$(CC$,C) ;SA$; :NEXT:PRINT"{CLR}P 


UNTEGGIO: "; Si 

2 rem 

243 

400 

FORT=1TO1 0 0 0 :NEXT 

2 rem 

26 

410 

PRINT"{ 4 GIU'H 7 SPAZI}VUOI GIOCARE ANCORA (S/N) 

•?" • 

• • 


POKE239,0 

2 rem 

94 

420 

GETKEYA$ 

2 rem 

196 

430 

IFA$ <>"S"THENEND 

2 rem 

1 62 

440 

RUN 

2 rem 

1 41 

450 

IFR=5THENRETURN 

2 rem 

251 

460 

R=R-1 :PO=SA+(R*40)+C: RETURN 

2 rem 

1 03 

470 

IFR=22THENRE TURN 

2 rem 

44 

480 

R=R+1:PO=SA+(R*40)+C:RETURN 

2 rem 

103 

490 

REM DATI PER L.M. 

2 rem 

1 27 

500 

REM- 

2 rem 

1 46 

51 0 

DATAI 73,11 ,255,201 ,204,208,249,1 60,0,162,199,1 85,201 , 


12,153,200,12,185 

2 rem 

90 

520 

DATAI 45,1 3,1 53,1 44,1 3,1 85,89,1 4,1 53,88,1 4, 

1 85 




2 rem 

1 69 

530 

DATA33,! 5,1 53,32,1 5,200,202,208,228,1 60,0, 

1 62 




2 rem 

1 30 
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540 

DATA5,142,238,46,169,32,153,239,12 

: rem 

1 33 

550 

DATAI 53,1 83,13,153,127,14,153,71,15,1 52, 

24,105,40 

,168 


,174,238,46,202 

: rem 

6 

560 

DATA2 08,228,96 

: rem 

1 78 

570 

NEXT 

: rem 

21 9 

580 

PRINT"{CLR}";TAB(16);"{RVS}EXPLORER{OFF} 

:rem 

1 54 

590 

PRINT:PRINT:PRINT"GUIDA LA NAVE SPAZIALE 

SULLE MONTAG 


NE.":PRINT 

: rem 

74 


600 PRINT"PIU' VOLI BASSO PIU' PUNTI TOTALIZZIPRINT 

: rem 146 

610 PRINT"SE VOLI ALL’ALTEZZA MASSIMA PERDI PUNTIPRINT 

:rem 89 

620 PRINT"NON SCHIANTARTI SULLE MONTAGNE, DOPO LE":PRINT 

:rem 34 

630 PRINT"QUALI DOVRAI AFFRONTARE UNA FITTA CADUTA":PRINT 

: rem 104 

640 PRINT"DI METEORE.":PRINT :rem 254 

650 PRINT"OGNI SCONTRO TI FA PERDERE 100 PUNTI !!!":PRINT 

:rem 55 

660 PRINTTAB(8 );"PREMI UN TASTO PER PARTIRE"; :rem 236 

670 GETA$:IFA$=""THEN670 :rem 93 

680 RETURN :rem 126 

6 90 FORI = lTOl5 :FORJ = lT099:NEXT:COLOR4,1,3 :NEXT:S1=S1 -100: 

RETURN :rem 62 


C64 

Decidere 


Quello che vi presentiamo è un 
adattamento al C64 di un vecchio 
programma scritto per il glorioso 
PET 2001, capostipite di tutti gli 
home-computer Commodore. Co¬ 
me si può capire dal titolo, questo 
programma serve ad aiutarvi nel 
prendere decisioni. Appena date 
il RUN, infatti, viene presentata la 
schermata iniziale con un menù 
comprendente tre opzioni. La pri¬ 
ma (scegliere una tra varie alterna¬ 
tive) consente di prendere decisio¬ 
ni su qualcosa di specifico, come 
ad esempio dove andare in vacan¬ 


za; la seconda (scegliere una serie 
di azioni tra varie possibilità) per¬ 
mette di decidere che cosa fare, 
per esempio se fare una passeg¬ 
giata, andare in piscina, restare a 
casa, ecc.; la terza, infine, serve a 
prendere la più classica delle deci¬ 
sioni, vale a dire si o no. Nei primi 
due casi sarà necessario innanzi¬ 
tutto introdurre le varie alternative 
possibili; in seguito, qualsiasi op¬ 
zione si sia selezionata, bisogna 
elencare i vari fattori che influenza¬ 
no la decisione, indicando quale 
ritenete il principale ed assegnan- 
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do di conseguenza l'importanza 
dei fattori rimanenti. Infine i vari 
fattori vengono considerati uno ad 
uno per ogni decisione possibile,- 
termina così la fase di introduzione 
dei dati. A questo punto il compu¬ 
ter, dopo pochi secondi di elabor- 
zione, visualizza i risultati: alla de¬ 
cisione migliore viene assegnato il 
valore 100, mentre le altre seguono 


con punteggi più bassi assegnati in 
base ai fattori introdotti. 
Naturalmente non pretendiamo 
certo di fornirvi uno strumento per 
prendere le decisioni più impor¬ 
tanti della vostra vita,- tuttavia sco¬ 
prirete che questo programma può 
esservi utile, se non altro per diver¬ 
tirvi a " misurare" la coerenza con 
cui fate le vostre scelte. 


3 REM -DECIDERE- BY CHRISTIAN ANTONIUTTI : rem 24 5 

10 POKE53280,0 :POKE532 81 ,0 :PRINT"{RED}" :rem 107 

20 PRINT"{CLR}{ 4 GIU'H 15 DES}{RVS}MAGICSOFT" :rem 108 
30 PRINT" { 3 GIU'HGRNH 2 DES} { 3 Q} { 2 SPAZl}{ 4 Q} 

{ 2 SPAZI}{ 3 Q}{SPAZI}Q{SPAZI}{ 3 Q} { 2 SPAZI} 

{ 4 Q}{SPAZI}{ 3 Q}{ 2 SPAZl}{ 4 Q}" :rem 8 

40 PRINT"{ 2 DES}Q{ 2 SPAZI}Q{SPAZI}Q{ 3 SPAZI}{SPAZI}Q 
{ 3 SPAZI}{SPAZI}Q{SPAZI}Q{ 2 SPAZI}Q{SPAZI}Q 
{ 3 SPAZI}{SPAZI}Q{ 2 SPAZI}Q{SPAZI}Q{ 3 SPAZI}" 

:rem 10 

50 PRINT"{ 2 DES}Q{ 2 SPAZI}Q{SPAZI}{ 2 Q}{ 2 SPAZI} 

{SPAZI}Q{ 3 SPAZI}{SPAZI}Q{SPAZI}Q{ 2 SPAZI}Q{SPAZI} 

{ 2 Q}{ 2 SPAZI}{SPAZI}{ 3 Q} {SPAZl}{ 2 Q} { 2 SPAZI} 

" :rem 15 

60 PRINT"{ 2 DES}Q{ 2 SPAZI}Q{SPAZI}Q{ 3 SPAZI}{SPAZI}Q 
{ 3 SPAZI}{SPAZI}Q{SPAZI}Q{ 2 SPAZI}Q{SPAZI}Q 
{ 3 SPAZI}{SPAZI}Q Q{ 2 SPAZl}Q{ 3 SPAZI}" :rem 108 

70 PRINT"{ 2 DES}{ 3 Qj{ 2 SPAZI}! 4 Q}{ 2 SPAZI}{ 3 Q} 
{SPAZI}Q{SPAZI}{ 3 Q}{ 2 SPAZl}{ 4 Q}{SPAZl}Q 
{ 2 SPAZI}Q{SPAZI}{ 4 Q}" :rem 74 

80 PRINT"{ 5 GIU'}{WHT}{ 8 DES}BY CHRISTIAN ANTONIUTTI" 

:rem 202 

90 FORT=1T03000:NEXT:PRINT"{CLR}{N}":POKE53280,1:POKE5328 
1,1 : rem 46 

1 60 DIML$ (1 0) ,F$ (1 0) ,V(1 0) ,C (1 0,1 0) ,D (1 0) ,Z (1 0) :rem 23 

180 E$ = "FINE" : rem 165 

190 FORJ =1TO10 :GETR$:NEXT :rem 70 

200 GOSUB2000 :rem 212 

210 PRINT"POSSO AIUTARTI A PRENDERE UNA DECISIONE."; 

:rem 81 

220 PRINT"PRIMA DEVO PORTI ALCUNE DOMANDE QUINDI"" 

: rem 182 

230 PRINT"ANALIZZERÒ' LE INFORMAZIONI CHE MI DAI.":PRINT 

:rem 219 

240 PRINT" { 5 SPAZI}-- — --" : PRINT 

:rem 26 

250 PRINT"QUAL E' LA MIGLIOR DESCRIZIONE DEL TIPO" 

:rem 119 
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260 PRINT"DI DECISIONE CHE DEVI PRENDERE?":PRINT: rem 220 
270 PRINT"!. SCEGLIERE UNA TRA VARIE ALTERNATIVEPRINT 




: rem 

82 

280 

PRINT"2. SCEGLIERE UNA SERIE DI AZIONI TRA" 

: rem 

1 20 

290 

PRINT"{ 3 SPAZI}VARIE ALTERNATIVEPRINT 

: rem 

23 

300 

PRINT"3. DECIDERE 'SI' O 'NO'.":PRINT 

: rem 

1 47 

320 

PRINT"QUALE (1-2-3)?" 

: rem 

222 

330 

GETR$:IFR$ = ""THEN330 

: rem 

113 

340 

T=VAL(R$):IFT<1ORT>3THEN330 

: rem 

1 35 

350 

PRINTT:GOSUB2000 

: rem 

245 

400 

FORJ=1TO9 :GETR$:NEXT:ONTGOT041 0,440,470 

:rem 

1 56 

410 

PRINT"SU CHE TIPO DI QUESTIONE DEVI DECIDERE" 




: rem 

65 

420 

INPUTT$:GOTO500 

: rem 

1 66 

440 

T$="SERIE DI AZIONI":GOTO500 

: rem 

1 04 

470 

T$ = "'SI' O 'NO'" 

: rem 

1 84 

480 

NI=2:L$(1)="DECIDERE DI SI":L$(2)="DECIDERE 

DI NO 

II 



: rem 

1 86 

490 

GOTO750 

: rem 

1 1 4 

500 

GOSUB2000:NI=0 

: rem 

21 

51 0 

PRINT"MI SERVE UNA LISTA DI OGNI" 

: rem 

29 

520 

PRINTT$;" IN ESAMEPRINT 

: rem 

1 8 

530 

PRINT"BATTI UNA RIGA ALLA VOLTA" 

: rem 

4 

540 

PRINT"RISPONDENDO A OGNI PUNTO DI DOMANDA.": 

PRINT 




: rem 

41 

550 

PRINT"NON IMPORTA L'ORDINE IN CUI BATTI." 

: rem 

64 

570 

PRINT:PRINT"BATTI LA PAROLA ";E$;" PER INDICARE" 




: rem 

1 89 

580 

PRINT"CHE LA LISTA E' TERMINATA.":PRINT 

: rem 

78 

590 

NI=NI+1:INPUTL$(NI) 

: rem 

1 35 

600 

IFL$(NI)<>E$THEN590 

: rem 

45 

610 

NI=NI-1 

: rem 

96 

620 

IFNI>=2THEN650 

: rem 

53 

630 

PRINT:PRINT"DEVI FARE ALMENO 2 SCELTE.":PRINT:PRINT" 


PROVA ANCORA.":GOSUB2100 : GOTO500 

: rem 

20 

650 

GOSUB2000:PRINT"BENE, QUESTA E' LA LISTA CHE 

MI HAI D 


ATO."; :PRINT 

: rem 

1 35 

660 

FORJ=lTONI:PRINT"{ 3 SPAZI}";J;"{SIN}) ";L$ (J) :NEXT:P 


RINT 

: rem 

208 

670 

PRINT"{GIU'}E' CORRETTA?" 

: rem 

1 4 

680 

GETR$:IFNOT(R$="S"ORR$="N")THEN680 

: rem 

252 

690 

IFR$ = "S"THENPRINT"SI":GOTO750 

: rem 

35 

700 

IFR$="N"THENPRINT"NO" 

: rem 

8 

71 0 

IFR$ = "N"THENPRINT:PRINT"RIBATTI LA LISTA":GOSUB2100 :G 


OTO500 

: rem 

81 

730 

GOTO680 

: rem 

1 1 3 

750 

GOSUB2000 

: rem 

222 


7 60 PRINT"ORA PENSA AI DIFFERENTI FATTORI" : rem 202 

770 IFT<3THENPRINT"CHE RITIENI IMPORTANTI PER SCEGLIERE" 

:rem 85 

780 IFT<3THENPRINT"IL/LA MIGLIORE ";T$;"." :rem 250 
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790 IFT=3THENPRINT"CHE RITIENI IMPORTANTI PER DECIDERE SI 
0 NO." : rem 176 

800 PRINT"BATTI LA PAROLA ";E$;" PER INDICARE CHE":PRINT" 
LA LISTA E' TERMINATA." :rem 22 

830 NF=0 :rem 156 

840 NF=NF+1:INPUTF$(NF) :rem 118 

850 IFF$(NF)<>E$THEN840 :rem 41 

860 NF=NF-1 : rem 97 

870 IFNF< 1 THENPRINT"DEVI FARE ALMENO 1 SCELTA! RIPROVA.": 

GOSUB2100:GOTO750 :rem 28 

890 GOSUB2000:PRINT"ECCO LA LISTA CHE MI HAI DATO:":PRINT 

:r em 243 

900 FORJ=lTONFIPRINT"{ 3 SPAZIJSIN})";F$(J):NEXT 

:rem 253 

910 PRINT:PRINT"ORA DEVI INDICARMI IL FATTORE PIU' IM- " 

:rem 206 

920 PRINT"PORTANTE. BATTI 0 SE VUOI CORREGGERE LA 

{ 2 SPAZI}LISTA.":PRINT : rem 234 

940 INPUTA:A=INT(A):IFA=0THEN750 :rem 229 

960 IFA>NFTHEN890 :rem 17 

1000 GOSUB2000:IFNF=1THENl200 :rem 192 

1001 PRINT"ORA DOBBIAMO CONFRONTARE GLI ALTRI FAT- TORI." 

:rem 63 

1010 PRINTF$(A) ;" HA ASSEGNATO UN VALORE DI 10.": rem 128 

1020 PRINT"CHE VALORE HANNO GLI ALTRI FATTORI?" :rem 209 

10 80 FORJ=lTONF:IFJ=ATHENl110 : rem 34 

1090 PRINT:PRINTF$(J);:INPUTV(J) :rem 25 

1100 IFA<0ORA>l0THENPRINT"IL MASSIMO E' 10, IL MINIMO E' 
0. RIFAI.":GOTOl090 :rem 36 

1110 NEXT : rem 2 

1 200 V(A)=10:Q=0:FORJ=1TONF:Q=Q+V(J):NEXT:FORJ = lTONF 

:rem 15 

1210 V(J)=V(J)/Q:NEXT:GOSUB2000 :rem 88 

1220 PRINT"ORA CONFRONTIAMO LE VARIE POSSIBILITÀ'." 

:rem 39 

1310 PRINTL$(1)" HA ASSEGNATO UN VALORE DI 10." :rem 62 

1 390 FORJ = l TONF: PRINT" { 4 SPAZI}----- 

—-: rem 33 

1410 PRINT"ESAMINIAMO ";F$(J) ;".":PRINTL$( 1 ) ;" HA ASSEGNA 
TO UN VALORE DI 10." :rem 213 

1440 FORK=2TONI :rem 164 

1 450 PRINTL$(K); :INPUTC(K,J) :PRINT :rem 132 

1 470 NEXT:C(1,J)=10 :NEXT :rem 151 

1500 FORJ=1TONF:Q=0:FORK=1TONI :rem 168 

1510 Q=Q+C(K,J):NEXT:FORK“lTONI :rem 179 

1520 C(K,J)=C(K,J)/Q:NEXT:NEXT :rem 33 

1530 FORK=lTONI:D(K)=0:FORJ=1TONF :rem 58 

1540 D(K)=D(K)+C(K,J)*V(J):NEXT:NEXT :rem 84 

1550 MX=0:FORK=lTONI :rem 241 

1560 IFD(K)>MXTHENMX=D(K) :rem 15 
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1 570 
1 600 
1 61 0 

1 620 
1630 

1640 
1 700 

1 800 

1 81 0 

1 840 

1 850 

1 860 
2000 

21 00 


NEXT: FORK= 1 TONI : D ( 1^) =D ( K) * 1 00/MX : NEXT :rem 95 

FORK=lTONI :Z(K)=K:NEXT:NM=NI-1 :rem 217 

FORK=1 TONI :FORJ=1TONM: Ni=Z(J) :N2 = Z(J+l) :IFD(Ni)>D(N2 
)THENl630 : rem 21 

Z(J+l)=Nl:Z(J)=N2 : rem 194 

NEXT:NEXT:J1= Z(1) :J2 = Z(2) :DF=D(Jl)-D(J2) :GOSUB2000 

:rera 235 

PRINT"DOPO LE VARIE ELABORAZIONI" :rem 213 

PRINTL$(Jl);" RISULTA LA MIGLIORE ":PRINT"SCELTA." 

:rem 14 


PRINT:PRINT"ECCO, NELL'ORDINE, LA LISTA FINALE.":PRI 
NT :rem 20 

PRINT"A ";L$(Jl);" E' STATO DATO":PRINT"UN VALORE DI 

100." : rem 52 

PRINT" { 4 SPAZI}-----" : p 

RINT : rem 50 


FORJ=lTONI:Q=Z(J) :PRINTD(Q) ;TAB(16) ;L$(Q) :NEXT: END 

:rem 178 

END :rem 166 

PRINT"{RED}{CLR}{ 16 SPAZI}{RVS}DECIDERE{ 2 GIU'} 
{OFF}{BLK}": RETURN : rem 231 

FORJ=lT02500:NEXT:RETURN :rem 95 


■ L'accoppiata 



f 


In l’accoppiata', è necessario, co¬ 
me dice il nome, formare delle 
coppie con un certo numero di car¬ 
te coperte. 

In questa versione per computer è 
possibile allenarsi giocando da soli 
o sfidare un altro giocatore in una 
lotta fino all’ultima coppia. 
Facendo partire il gioco, dopo al¬ 
cuni secondi in cui il programma 
inizia lizza alcune variabili, viene 
chiesto all’utente se desidera gio¬ 
care da solo o contro un avversa¬ 
rio. 

Dopo aver risposto a tale doman¬ 
da appaiono, una per una, sullo 
schermo le 36 carte che compon¬ 


gono di conseguenza 18 coppie. 
Esse vengono disposte casual¬ 
mente sullo schermo e in ogni par¬ 
tita sono in posizioni diverse. 
Dopo che le carte sono state poste 
sullo schermo, un giocatore dovrà 
scegliere una coppia di carte, indi¬ 
candole con i numeri che recano 
sul retro (se si è selezionato il soli¬ 
tario sarà sempre lo stesso giocato¬ 
re a scegliere, se invece si è sele¬ 
zionata la partita a due, sceglierà 
a turno uno o l’altro giocatore). Do¬ 
po aver digitato i due numeri (o 
digitandoli separati da una virgola 
o premendo RETURN dopo aver 
digitato ciascun numero), il com- 
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puter volterà le due carte corri¬ 
spondenti. 

Se esse sono uguali, il giocatore 
che le ha scelte si aggiudica un 
punto, se sono diverse, il compu¬ 
ter le lascia vedere per alcuni attimi 
e poi le volta. Se si indica una carta 
già scoperta, la scelta viene annul¬ 
lata e viene di nuovo formulata la 
richiesta dei due numeri. 

Al termine della partita, cioè quan¬ 
do tutte le coppie sono state sco¬ 
perte, colui il quale ha scoperto 


più coppie vince. 

In questo gioco è necessario, per 
scoprire più coppie possibile, os¬ 
servare e cercare di ricordare le 
posizioni delle carte, perché se si 
vede una carta e ci si ricorda dove 
era la carta gemella, si può formare 
una coppia, mentre digitando nu¬ 
meri a caso, è molto difficile trovar¬ 
ne una. 

Ed ora buon divertimento e buona 
accoppiata!! 


10 POKE53280,3:POKE53281 ,1 :PRINT"{BLU}" :rem 228 

20 DIMCC (18) ,DC% (36) ,NC(72) ,AC(3,3) ,KK(18) ,DK%(36) ,SC(2) 

: rem 115 

30 BS=1190:BC=55462 :rem 2 

32 SO$ = "{HOME}" : rem 191 

40 DATAI 29,130,131,1 32,133,1 34,135,1 36,137,138,1 39,140,14 


: rem 
: rem 


1,142,143,144,145,146 
50 FORI=lTOl8 : READIN:CC(I)=IN:NEXT 
65 DATAO,2,5,6,0,6,4,3,3,0,4,5,6,5,3,2,2,4 :rem 

70 F0RI = 1TOl8 : rem 

72 READIN:KK(I)=IN :rem 

75 NEXT : rem 

90 FORI=0TO8:NC(1*2+1)=49+1:NC(1*2+2)=32:NEXTI :rem 
92 FORI = 9TOl8:NC(1*2 + 1)=49 :NC(1*2+2)=39+1:NEXTI :rem 
94 FORI = 19T028:NC(1*2+1)=50 :NC(I*2+2)=2 9+1 :NEXTI: rem 
96 F0RI = 2 9T03 5:NC(1*2 + 1)=51 :NC(1*2+2)=19+1 :NEXTI: rem 
110 FORI = lT036 : rem 

120 DC%(I)=0:NEXTI :rem 

130 REM : rem 

140 FORI = lTOl3:FORJ=lT02 :rem 

160 P=INT(36*RND(0)+1) :rem 

170 IFDC%(P)=0THENDC%(P)=CC(I):DK%(P)=KK(I):GOTO200 

: rem 

180 P=P+7:IFP>36THENP=P-36 :rem 

190 GOTO!70 :rem 

200 NEXT:NEXT : rem 

210 SC(1)=0 :SC(2)=0 :TR=0:PRINT"{CLR}" :rem 

215 INPUT"GIOCATORI ( 1/2)";NP:IFNPClORNP>2THEN215 

: rem 

216 PRINT"{CLR}":ME=1 :rem 

220 FORX=lT036 :GOSUB5300:GOSUB5100 :GOSUB5200:NEXTX 

: rem 
: rem 
: rem 


35 
1 63 
1 3 
1 7 
90 
1 71 
158 
225 
12 
13 
60 
8 

1 20 
237 
1 80 

1 87 
58 
1 07 
74 
195 

1 9 
55 

1 61 
35 
34 


230 PRINTSO$; 
235 ME=NP+1-ME 


27 



240 

PRINT"{GIU 1 }{BLU}GIOCATORE";ME;"{SIN} - PRENDI 2 

CART 


E" 

: rem 

1 73 

250 

INPUTXl , X2:PRINT"{SU}{ 7 SPAZI}" 

: rem 

2 

260 

REM 

: rem 

1 24 

270 

IFXl>360RX2>360RXl<10RX2<1THENE$="NON BARARE !!": 

GOSU 


B4000:GOTO230 

: rem 

21 0 

280 

IFDC%(Xl)=OORDC%(X2)=OORXl=X2THENE$="GIA' SCOPERTE !" 


:GOSUB4000:GOTO230 

: rem 

1 91 

300 

TR=TR+1:GOSUB4500 

: rem 

251 

305 

PRINTSO$;"{RED}PUNTI 1={PUR}";SC(1);"{RED}{ 

3 SPAZI} 


2={PUR}";SC(2) 

: rem 

1 09 

31 0 

IFSC(1)+SC(2)<18THEN230 

: rem 

232 

320 

PRINT"{HOME}{GRN}{GIU'}FINITO IN";TR;"{SIN} 

PROVE 

i i " 
• • 



: rem 

21 1 

330 

FORW=0TOl5 : PO KE 5 3 2 8 0,W:FORJ=1TO 5 0 0 :NEXTJ:NEXTW 




: rem 

220 

340 

POKE532 80,3 :POKE532 81 ,1 :RUN 

: rem 

31 

4000 

PRINTSO$; 

: rem 

82 

401 0 

PRINT"{GIU'}";E$;"{ 18 SPAZI}" 

: rem 

202 

4020 

FORT=lT02000:NEXT 

: rem 

77 

4030 

PRINTSO$; 

: rem 

85 

4040 

PRINT"{ 2 GIU'}" 

: rem 

1 87 

4050 

RETURN 

: rem 

1 69 

4500 

REM 

: rem 

1 73 

4520 

X=X1:GOSUB5000:GOSUB5100:GOSUB5200 

: rem 

105 

4540 

X=X2:GOSUB5000:GOSUB5100:GOSUB5200 

2 rem 

108 

4550 

IFDC%(XI)=DC%(X2)THENSC(ME)=SC(ME)+1:DC%(Xl)=0:DC%(X 


2)=0 :GOTO4590 

2 rem 

1 

4560 

FORT=1TO1 0 0 0 :NEXTT 

2 rem 

1 69 

4570 

X=X1:GOSUB5100 :GOSUB5300:GOSUB5200 

2 rem 

113 

4580 

X=X2:GOSUB5100 :GOSUB5300:GOSUB5200 

2 rem 

115 

4590 

RETURN 

2 rem 

1 78 

5000 

REM 

2 rem 

1 69 

5010 

FORI=lT03 

2 rem 

58 

5020 

FORJ=lT03 

2 rem- 

60 

5030 

BC(I,J)=DC% (X) 

2 rem 

239 

5040 

NEXTJ:NEXTI 

2 rem 

20 

5050 

F=255:RETURN 

2 rem 

3 

51 00 

REM 

2 rem 

1 70 

5110 

RW=INT((X-1)/6) 

2 rem 

85 

51 20 

CL=X-6*RW 

2 rem 

34 

51 30 

YS=BS+120*RW+3*CL 

2 rem 

239 

51 35 

YC=BC+120*RW+3*CL 

2 rem 

21 2 

5140 

RETURN 

2 rem 

1 70 

5200 

REM 

2 rem 

171 

5210 

FORI=lT03 

2 rem 

60 

5220 

FORJ =1T03 

2 rem 

62 

5230 

POKE(YS+40* (I-1) + J) ,BC(I f J) 

2 rem 

221 

5235 

POKE(YC+40*(1-1)+J) f DK%(X)ANDF 

2 rem 

179 

5240 

NEXTJ:NEXTI 

2 rem 

22 

5250 

RETURN 

2 rem 

1 72 
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5300 

REM 

: rem 

1 72 

531 0 

FORI=lT03 

: rem 

61 

5320 

FORJ = 1TO 3 

: rem 

63 

5330 

BC(I,J)=32 

: rem 

2 

5340 

NEXTJ:NEXTI 

: rem 

23 

5345 

BC (2,2) =NC ( 2* (X-1 ) +1 ) 

:BC(2,3)=NC(2*(X-l)+2):rem 

149 

5350 

F=0: RETURN 

: rem 

1 54 



5TM è una abbreviazione inglese 
che indica la memoria breve, cioè 
la capacità di ricordare le cose av¬ 
venture poco tempo prima. Que¬ 
sto semplice programma vi da la 
possibilità di migliorare la vostra 
memoria breve in maniera diver¬ 
tente. All'Inizio vi viene chiesto se 
volete cimentarvi con le lettere del¬ 
l’alfabeto, con le cifre da 0 a 9, 
oppure solamente con i due sim¬ 
boli 0-1. Dopo che avete fatto la 
vostra scelta, vi viene presentata 
per un tempo molto breve una se¬ 


quenza di numeri o di lettere, che 
dovete imprimervi bene nella men¬ 
te. Dovrete poi digitare i simboli 
nello stesso ordine in cui vi sono 
stati presentati. Se la risposta sarà 
esatta, vi verrà mostrata una nuova 
sequenza più lunga della prece¬ 
dente; si comincia infatti con un so¬ 
lo carattere, e ogni volta la sequen¬ 
za si allunga di un simbolo. Potrete 
anche garaggiare con i vostri amici: 
vincerà chi avrà ricordato la se¬ 
quenza più lunga impiegando il 
minor tempo possibile. 


10 REM **STM** : rem 225 

15 POKE53 2 80,8 :POKE53281 , 5 :PRINT"{CLR}{ 14 DES}{RVS}{BLK} 



* S T M * " 


: rem 

230 

20 

PRINT"{ 2 GIU' 

}VUOI GIOCARE CON..." 

: rem 

252 

30 

PRINT"{GIU'}1: 

LETTERE ?" 

: rem 

4 

40 

PRINT"{GIU'}2 : 

NUMERI ?" 

: rem 

1 93 

50 

PRINT"{GIU *}3 : 

SOLO CON 0-1 ?" 

: rem 

1 58 

60 

PRINT"{GIU'}4 : 

VUOI TERMINARE ?" 

: rem 

223 

70 

GETA$ 


: rem 

1 72 

80 

ONVAL(A$)GOTO100,1 1 0,1 20,620 

: rem 

1 69 

90 

GOTO70 


: rem 

9 

1 00 

A=26:B=65:GOTO200 

: rem 

1 60 

1 1 0 

A=10 :B=48:GOTO200 

: rem 

1 55 

1 20 

A=2:B=48 


: rem 

1 04 
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200 

INPUT"{GIU'}SEI PRONTO <RETURN> ??";K$ 

: rem 

1 57 

209 

IFK$=" "THEN209 

: rem 

228 

21 0 

C=1:TT=300 

: rem 

246 

220 

T=TI:TA=T 

: rem 

34 

230 

A$ = "":PRINT 

: rem 

66 

240 

FORD=1 TOC 

: rem 

21 

250 

B$=CHR$(B+RND(0)*A) 

: rem 

201 

260 

PRINTB$ 

: rem 

1 39 

270 

A$=A$+B$ 

: rem 

49 

280 

FORE=1TOTT:NEXT 

: rem 

248 

290 

PRINT"{SIN} 

: rem 

68 

300 

NEXT 

: rem 

21 0 

31 0 

PRINT 

: rem 

33 

350 

FORW=lTO250:NEXT:PRINT"{CLR}" 

: rem 

149 

400 

REM* *RISPOSTA* * 

: rem 

1 49 

410 

POKEl98,0:INPUT"RISPOSTA";AN$ 

: rem 

51 

420 

IFAN$=A$THEN600 

: rem 

63 

430 

PRINT"{GIU'}{RVS}SBAGLIATO!{GIU'}" 

: rem 

83 

440 

PRINT"PUNTI :";C 

: rem 

1 77 

450 

PRINT"LA RISPOSTA ERA: ";A$ 

: rem 

30 

460 

PRINT"TEMPO:";STR$(INT((TA~T)/.6)/I00);" 

SECONDI" 




: rem 

77 

500 

PRINT"{GIU'}GIOCHI ANCORA (S/N) ?" 

: rem 

62 

51 0 

GETA$ 

: rem 

21 9 

520 

IFA$="S"THEN200 

: rem 

32 

530 

IFA$ < >"N"THEN51 0 

: rem 

93 

540 

GOTOl0 

: rem 

51 

600 

C=C+1:TA=TI 

2 rem 

94 

610 

GOTO230 

2 rem 

101 

620 

END 

2 rem 

1 1 1 


PRECISAZIONE 

Neirindice del n. 14 il programma "PRESET 22" per VIC 20 portava per 
errore la seguente dicitura: "di D. Cooper - trad. e adatt. di V. Silvestroni". 
Precisiamo che il sig. Vincenzo Silvestroni è l'autore di tale programma e 
non il traduttore. Nella testata di "PRESET 22" non veniva inoltre indicato 
che il programma necessita dell'espansione da 3K. 

La Redazione 
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QUALCOSA DI SUPER, DI INEDITO, 

DI IRRESISTIBILE 


















COMINCIA ADESSO 
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IN EDICOLA 
JACKSON SOFT 
SERIE ORO 


GRUPPO 

EDITORIALE 

JACKSON 


I giochi esclusivi per 
Commodore 64 e Spectrum 48 K 
importati dall’Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, al 
già fatto, al... già registrato. 


Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 









